inherited frmRpt401group: TfrmRpt401group
  Left = 304
  Top = 249
  Caption = 'frmRpt401group'
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnCondition: TPanel
    inherited Panel2: TPanel
      Visible = True
      object ComboBox1: TComboBox
        Left = 48
        Top = 11
        Width = 145
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        TabStop = False
      end
    end
  end
  inherited frReport1: TfrReport
    ReportForm = {19000000}
  end
  inherited cdsReport: TADOQuery
    Connection = DataModule1.SqlConnection
    SQL.Strings = (
      'SELECT * FROM GLAND')
    object cdsReportCardID: TWideStringField
      DisplayLabel = #3648#3621#3586#3611#3619#3632#3592#3635#3605#3633#3623#3611#3619#3632#3594#3634#3594#3609
      FieldName = 'CardID'
      Size = 13
    end
    object cdsReportluTitleID: TWideStringField
      DisplayLabel = #3588#3635#3609#3635#3627#3609#3657#3634
      DisplayWidth = 5
      FieldName = 'luTitleID'
      Size = 10
    end
    object cdsReportFirstname: TWideStringField
      DisplayLabel = #3594#3639#3656#3629
      DisplayWidth = 10
      FieldName = 'Firstname'
      Size = 30
    end
    object cdsReportLastname: TWideStringField
      DisplayLabel = #3626#3585#3640#3621
      DisplayWidth = 10
      FieldName = 'Lastname'
      Size = 30
    end
    object cdsReportPlang: TWideStringField
      DisplayLabel = #3649#3611#3621#3591
      DisplayWidth = 5
      FieldName = 'Plang'
      Size = 7
    end
    object cdsReportRawang: TWideStringField
      DisplayLabel = #3619#3632#3623#3634#3591'/'#3585#3621#3640#3656#3617
      DisplayWidth = 10
      FieldName = 'Rawang'
      Size = 15
    end
    object cdsReportRai: TSmallintField
      DisplayLabel = #3652#3619#3656
      DisplayWidth = 5
      FieldName = 'Rai'
    end
    object cdsReportNGan: TWordField
      DisplayLabel = #3591#3634#3609
      DisplayWidth = 5
      FieldName = 'NGan'
    end
    object cdsReportWa: TWordField
      DisplayLabel = #3623#3634
      DisplayWidth = 5
      FieldName = 'Wa'
    end
    object cdsReportGov_Land: TWideStringField
      DisplayLabel = #3626#3606#3634#3609#3632#3649#3611#3621#3591#3649#3610#3656#3591
      FieldName = 'Gov_Land'
      Size = 1
    end
    object cdsReportM_Plang: TWideStringField
      DisplayLabel = #3649#3610#3656#3591#3617#3634#3592#3634#3585#3649#3611#3621#3591
      FieldName = 'M_Plang'
      Size = 7
    end
    object cdsReportM_Rawang: TWideStringField
      DisplayLabel = #3649#3610#3656#3591#3617#3634#3592#3634#3585#3619#3632#3623#3634#3591
      DisplayWidth = 10
      FieldName = 'M_Rawang'
      Size = 15
    end
    object cdsReportProjectID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3650#3588#3619#3591#3585#3634#3619
      FieldName = 'ProjectID'
      Size = 5
    end
    object cdsReportluProjectID: TWideStringField
      DisplayLabel = #3650#3588#3619#3591#3585#3634#3619
      DisplayWidth = 15
      FieldName = 'luProjectID'
      Size = 50
    end
    object cdsReportAddress: TWideStringField
      DisplayLabel = #3607#3637#3656#3629#3618#3641#3656
      FieldName = 'Address'
      Size = 10
    end
    object cdsReportRoad: TWideStringField
      DisplayLabel = #3606#3609#3609
      DisplayWidth = 10
      FieldName = 'Road'
    end
    object cdsReportSoi: TWideStringField
      DisplayLabel = #3595#3629#3618
      DisplayWidth = 10
      FieldName = 'Soi'
    end
    object cdsReportMu: TWideStringField
      DisplayLabel = #3627#3617#3641#3656
      FieldName = 'Mu'
      Size = 2
    end
    object cdsReportBan: TWideStringField
      DisplayLabel = #3610#3657#3634#3609
      DisplayWidth = 10
      FieldName = 'Ban'
      Size = 50
    end
    object cdsReportTamNm: TWideStringField
      DisplayLabel = #3605#3635#3610#3621
      DisplayWidth = 10
      FieldName = 'TamNm'
      Size = 50
    end
    object cdsReportAmpNm: TWideStringField
      DisplayLabel = #3629#3635#3648#3616#3629
      DisplayWidth = 10
      FieldName = 'AmpNm'
      Size = 50
    end
    object cdsReportProvID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3592#3633#3591#3627#3623#3633#3604
      FieldName = 'ProvID'
      Size = 2
    end
    object cdsReportProvNm: TWideStringField
      DisplayLabel = #3592#3633#3591#3627#3623#3633#3604
      DisplayWidth = 10
      FieldName = 'ProvNm'
      Size = 50
    end
    object cdsReportLanduse: TWideStringField
      DisplayLabel = #3585#3634#3619#3651#3594#3657#3611#3619#3632#3650#3618#3594#3609#3660
      FieldName = 'Landuse'
      Size = 2
    end
    object cdsReportLandcode: TWideStringField
      DisplayLabel = #3626#3606#3634#3609#3632#3607#3637#3656#3604#3636#3609
      FieldName = 'Landcode'
      Size = 2
    end
    object cdsReportP_Code1: TWideStringField
      DisplayLabel = #3611#3633#3597#3627#3634#3607#3637#3656#3604#3636#3609
      FieldName = 'P_Code1'
      Size = 2
    end
    object cdsReportP_Code2: TWideStringField
      DisplayLabel = #3611#3633#3597#3627#3634#3648#3585#3625#3605#3619#3585#3619
      FieldName = 'P_Code2'
      Size = 2
    end
    object cdsReportSubcode3: TWideStringField
      DisplayLabel = #3611#3633#3597#3627#3634#3648#3629#3585#3626#3634#3619
      FieldName = 'Subcode3'
      Size = 2
    end
    object cdsReportSubcode4: TWideStringField
      DisplayLabel = #3612#3621#3585#3634#3619#3592#3633#3604
      FieldName = 'Subcode4'
      Size = 2
    end
    object cdsReportSubcode5: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607#3585#3634#3619#3626#3635#3619#3623#3592#3619#3634#3591#3623#3633#3604
      FieldName = 'Subcode5'
      Size = 2
    end
    object cdsReportAllowA: TWideStringField
      DisplayLabel = #3617#3605#3636#3588#3611#3629'.'
      FieldName = 'AllowA'
      Size = 2
    end
    object cdsReportCommitDateA: TWideStringField
      DisplayLabel = #3611#3619#3632#3594#3640#3617#3588#3611#3629'.'
      FieldName = 'CommitDateA'
      Size = 8
    end
    object cdsReportAllowP: TWideStringField
      DisplayLabel = #3617#3605#3636#3588#3611#3592'.'
      FieldName = 'AllowP'
      Size = 2
    end
    object cdsReportCommitDateP: TWideStringField
      DisplayLabel = #3611#3619#3632#3594#3640#3617#3588#3611#3592'.'
      FieldName = 'CommitDateP'
      Size = 8
    end
    object cdsReportBook_NO: TWideStringField
      DisplayLabel = #3626#3634#3619#3610#3633#3597#3648#3621#3586#3607#3637#3656
      FieldName = 'Book_NO'
      Size = 5
    end
    object cdsReportALRODate: TDateTimeField
      DisplayLabel = #3627#3609#3633#3591#3626#3639#3629#3629#3609#3640#3597#3634#3605
      DisplayWidth = 10
      FieldName = 'ALRODate'
    end
    object cdsReportPrt_NO: TWideStringField
      DisplayLabel = #3627#3617#3634#3618#3648#3621#3586#3649#3610#3610#3614#3636#3617#3614#3660
      FieldName = 'Prt_NO'
      Size = 10
    end
    object cdsReportLandType: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607#3607#3637#3656#3604#3636#3609
      FieldName = 'LandType'
      Size = 1
    end
    object cdsReportChumType: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607#3594#3640#3617#3594#3609
      FieldName = 'ChumType'
      Size = 1
    end
    object cdsReportLandYear: TWideStringField
      DisplayLabel = #3611#3637#3604#3635#3648#3609#3636#3609#3585#3634#3619
      FieldName = 'LandYear'
      Size = 4
    end
    object cdsReportLandupdate: TDateTimeField
      DisplayLabel = #3611#3619#3633#3610#3611#3619#3640#3591#3623#3633#3609#3607#3637#3656
      FieldName = 'Landupdate'
    end
    object cdsReportRemarkL: TWideStringField
      DisplayLabel = #3627#3617#3634#3618#3648#3627#3605#3640
      DisplayWidth = 20
      FieldName = 'RemarkL'
      Size = 100
    end
    object cdsReportProjectRef: TWideStringField
      DisplayLabel = #3648#3621#3586#3607#3637#3656
      DisplayWidth = 10
      FieldName = 'ProjectRef'
      Size = 30
    end
    object cdsReportluGov_Land: TWideStringField
      FieldName = 'luGov_Land'
      Size = 50
    end
    object cdsReportTidinState: TWideStringField
      FieldName = 'TidinState'
      Size = 1
    end
    object cdsReportluTidinState: TWideStringField
      FieldName = 'luTidinState'
      Size = 50
    end
    object cdsReportMProjectRef: TWideStringField
      FieldName = 'MProjectRef'
      Size = 30
    end
    object cdsReportSpitDate: TDateTimeField
      FieldName = 'SpitDate'
    end
    object cdsReportBanID: TWideStringField
      FieldName = 'BanID'
      Size = 8
    end
    object cdsReportTamID: TWideStringField
      FieldName = 'TamID'
      Size = 6
    end
    object cdsReportAmpID: TWideStringField
      FieldName = 'AmpID'
      Size = 4
    end
    object cdsReportluLanduse: TWideStringField
      FieldName = 'luLanduse'
      Size = 50
    end
    object cdsReportluLandcode: TWideStringField
      FieldName = 'luLandcode'
      Size = 50
    end
    object cdsReportluP_Code1: TWideStringField
      FieldName = 'luP_Code1'
      Size = 50
    end
    object cdsReportluP_Code2: TWideStringField
      FieldName = 'luP_Code2'
      Size = 50
    end
    object cdsReportluSubcode4: TWideStringField
      FieldName = 'luSubcode4'
      Size = 50
    end
    object cdsReportAllowK: TWideStringField
      FieldName = 'AllowK'
      Size = 2
    end
    object cdsReportluAllowK: TWideStringField
      FieldName = 'luAllowK'
      Size = 50
    end
    object cdsReportCommitDateK: TWideStringField
      FieldName = 'CommitDateK'
      Size = 8
    end
    object cdsReportluCommitDateK: TDateTimeField
      FieldName = 'luCommitDateK'
    end
    object cdsReportluAllowA: TWideStringField
      FieldName = 'luAllowA'
      Size = 50
    end
    object cdsReportluCommitDateA: TDateTimeField
      FieldName = 'luCommitDateA'
    end
    object cdsReportluAllowP: TWideStringField
      FieldName = 'luAllowP'
      Size = 50
    end
    object cdsReportluCommitDateP: TDateTimeField
      FieldName = 'luCommitDateP'
    end
    object cdsReportDigi_Tam: TWideStringField
      FieldName = 'Digi_Tam'
      Size = 50
    end
    object cdsReportDigi_Amp: TWideStringField
      FieldName = 'Digi_Amp'
      Size = 50
    end
    object cdsReportluLandType: TWideStringField
      FieldName = 'luLandType'
      Size = 50
    end
    object cdsReportluChumType: TWideStringField
      FieldName = 'luChumType'
      Size = 50
    end
    object cdsReportXrayyear: TWideStringField
      FieldName = 'Xrayyear'
      Size = 4
    end
    object cdsReportluSubcode3: TWideStringField
      FieldName = 'luSubcode3'
      Size = 50
    end
    object cdsReportluSubcode5: TWideStringField
      FieldName = 'luSubcode5'
      Size = 50
    end
    object cdsReportOldFarmerID: TWideStringField
      FieldName = 'OldFarmerID'
      Size = 13
    end
    object cdsReportTitleID: TWideStringField
      FieldName = 'TitleID'
      Size = 2
    end
    object cdsReportBirthday: TDateTimeField
      FieldName = 'Birthday'
    end
    object cdsReportStatus: TWideStringField
      FieldName = 'Status'
      Size = 1
    end
    object cdsReportluStatus: TWideStringField
      FieldName = 'luStatus'
      Size = 50
    end
    object cdsReportMu_Add: TWideStringField
      FieldName = 'Mu_Add'
      Size = 2
    end
    object cdsReportBanID_Add: TWideStringField
      FieldName = 'BanID_Add'
      Size = 8
    end
    object cdsReportBan_Add: TWideStringField
      FieldName = 'Ban_Add'
    end
    object cdsReportTamID_Add: TWideStringField
      FieldName = 'TamID_Add'
      Size = 6
    end
    object cdsReportluTam_Add: TWideStringField
      FieldName = 'luTam_Add'
      Size = 50
    end
    object cdsReportAmpID_Add: TWideStringField
      FieldName = 'AmpID_Add'
      Size = 4
    end
    object cdsReportluAmp_Add: TWideStringField
      FieldName = 'luAmp_Add'
      Size = 50
    end
    object cdsReportProvID_Add: TWideStringField
      FieldName = 'ProvID_Add'
      Size = 2
    end
    object cdsReportluProv_Add: TWideStringField
      FieldName = 'luProv_Add'
      Size = 50
    end
    object cdsReportTelephone: TWideStringField
      FieldName = 'Telephone'
    end
    object cdsReportMobile: TWideStringField
      FieldName = 'Mobile'
      Size = 10
    end
    object cdsReportEmail: TWideStringField
      FieldName = 'Email'
      Size = 50
    end
    object cdsReportIncome: TWideStringField
      FieldName = 'Income'
      Size = 6
    end
    object cdsReportSCardID: TWideStringField
      FieldName = 'SCardID'
      Size = 13
    end
    object cdsReportSTitleID: TWideStringField
      FieldName = 'STitleID'
      Size = 2
    end
    object cdsReportluSTitleID: TWideStringField
      FieldName = 'luSTitleID'
      Size = 10
    end
    object cdsReportSFirstname: TWideStringField
      FieldName = 'SFirstname'
      Size = 30
    end
    object cdsReportSLastname: TWideStringField
      FieldName = 'SLastname'
      Size = 30
    end
    object cdsReportSBirthday: TDateTimeField
      FieldName = 'SBirthday'
    end
    object cdsReportSMobile: TWideStringField
      FieldName = 'SMobile'
      Size = 10
    end
    object cdsReportSEmail: TWideStringField
      FieldName = 'SEmail'
      Size = 50
    end
    object cdsReportRemark_F: TWideStringField
      FieldName = 'Remark_F'
      Size = 200
    end
    object cdsReportAsset: TWideStringField
      FieldName = 'Asset'
      Size = 1
    end
    object cdsReportK401: TWideStringField
      FieldName = 'K401'
      Size = 1
    end
    object cdsReportPrt_NOK401: TWideStringField
      FieldName = 'Prt_NOK401'
      Size = 10
    end
    object cdsReportBook_NoK401: TWideStringField
      FieldName = 'Book_NoK401'
      Size = 5
    end
    object cdsReportMuK401: TWideStringField
      FieldName = 'MuK401'
      Size = 2
    end
    object cdsReportBanK401: TWideStringField
      FieldName = 'BanK401'
      Size = 50
    end
    object cdsReportTamK401: TWideStringField
      FieldName = 'TamK401'
      Size = 50
    end
    object cdsReportAmpK401: TWideStringField
      FieldName = 'AmpK401'
      Size = 50
    end
    object cdsReportInsertDate: TDateTimeField
      FieldName = 'InsertDate'
    end
    object cdsReportInsertBy: TWideStringField
      FieldName = 'InsertBy'
      Size = 50
    end
    object cdsReportLastUpdate: TDateTimeField
      FieldName = 'LastUpdate'
    end
    object cdsReportUpdateBy: TWideStringField
      FieldName = 'UpdateBy'
      Size = 50
    end
    object cdsReportPak: TWideStringField
      FieldName = 'Pak'
      FixedChar = True
      Size = 10
    end
    object cdsReportPakID: TWideStringField
      FieldName = 'PakID'
      FixedChar = True
      Size = 1
    end
    object cdsReportXray: TBooleanField
      FieldName = 'Xray'
    end
    object cdsReportNewArea: TBooleanField
      FieldName = 'NewArea'
    end
  end
  inherited PopupMenu1: TPopupMenu
    object N3: TMenuItem
      Caption = #3649#3585#3657#3652#3586#3619#3634#3618#3591#3634#3609
      OnClick = N3Click
    end
  end
end
